home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / GUIGetStyle.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  686 b   |  28 lines
  1. #include <GuiConstants.au3>
  2. $NewStyle = False
  3. $hWnd = GUICreate("Gui Style", 260, 100)
  4. $Style = GUICtrlCreateButton("Set Style", 45, 50, 150, 20)
  5.  
  6. $GuiStyles = GuiGetStyle ($hWnd)     ; be careful the style change after opening
  7.  
  8. GUISetState()
  9.  
  10.  
  11. While 1
  12.     $Msg = GUIGetMsg()
  13.     Switch $Msg
  14.         Case $GUI_EVENT_CLOSE
  15.             Exit
  16.         Case $Style
  17.             If Not $NewStyle Then
  18.                 GuiSetStyle ($WS_POPUPWINDOW + $WS_THICKFRAME, $WS_EX_CLIENTEDGE + $WS_EX_TOOLWINDOW)
  19.                 GUICtrlSetData($Style, 'Undo Style')
  20.                 $NewStyle = True
  21.             Else
  22.                 GuiSetStyle ($GuiStyles[0], $GuiStyles[1])
  23.                 GUICtrlSetData($Style, 'Set Style')
  24.                 $NewStyle = False
  25.             EndIf
  26.         Case Else
  27.     EndSwitch
  28. WEnd